home *** CD-ROM | disk | FTP | other *** search
/ PC Home 48 / Fun Clicp Art 5000.iso / r / mbm / 00781_SU-IN 1 ge.ls < prev    next >
Encoding:
Text File  |  1996-05-11  |  575 b   |  20 lines
  1. on enterFrame
  2.   global g1erSprNav, gMaxBoutons, g1erSprChr, gLocLabel, gSujet0, gBarChron, gSujet1, gCDpath, gVersion
  3.   set gMaxBoutons to 27
  4.   puppetSprite(3, 0)
  5.   set moncod to gSujet0(Le_Code)
  6.   set the fileName of cast "FICHE SUJET" to gVersion & "S" & moncod & "F.PIC"
  7.   set the visible of sprite 3 to 1
  8.   repeat with i = g1erSprChr to gMaxBoutons
  9.     puppetSprite(i, 0)
  10.   end repeat
  11.   set gLocLabel to "SU:RN GE"
  12.   if gSujet1 = 0 then
  13.     nothing()
  14.   else
  15.     nothing()
  16.   end if
  17.   set gSujet1 to 0
  18.   set the foreColor of cast "ZI5" to the foreColor of cast "jaune"
  19. end
  20.